10 POKE56,64:CLR
12 POKE 3231,16* 5+ 0:REM FORE+BACK(31)
20 PRINT"[147]PRINT 8K PRG BITMAP FILE"
21 PRINT"HOME = REVERSE   L = LOAD"
22 PRINT"   P = PRINT     X = EXIT"
24 INPUT"FN = ";N$
26 POKE 3228,LEN(N$):REM LEN  (28)
28 SYS 3237         :REM LOAD (37)
30 POKE53265,59
40 POKE53272,128
50 POKE53280,0      :REM BORDER
60 POKE56576,150
90 SYS 3240         :REM INIT (40)
100 GETC$:IFC$=""GOTO100
120 IFC$<>""GOTO130
122 SYS 3243:GOTO100:REM FLIP (43)
130 IFC$<>"P"GOTO300
140 CLOSE3:OPEN3,4
142 PRINT#3,CHR$(8);:GOTO160
150 FORI=1TO1:PRINT#3:NEXT
160 FORJ=0TO28
170 FORK=0TO39
180 SYS 3246        :REM PRNT (46)
190 A$=""
200 FORI=0TO7
210 A=PEEK( 3200+I) :REM CHAR (0)
220 A$=A$+CHR$(A)
230 NEXTI
240 IFK<>39THENPRINT#3,A$;:GOTO260
250 PRINT#3,A$:GOTO260
252 PRINT#3,CHR$(27);CHR$(10);CHR$(2);
260 NEXTK                :REM GAP=0,2,3
270 NEXTJ
280 FORI=1TO4:PRINT#3:NEXT:REM BL=4,2,1
282 PRINT#3,CHR$(15);
284 CLOSE3
290 GOTO100
300 IFC$="L"THENGOSUB900:GOTO20
310 IFC$="X"THENGOSUB900:END
500 GOTO100
900 POKE53265,27
910 POKE53272,21
920 POKE53280,254
930 POKE56576,151
940 PRINT"[147]"
950 RETURN